home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / tbasmhlp.arc / SOURCE.ARC / MKINLINE.BAS < prev    next >
BASIC Source File  |  1987-07-21  |  1KB  |  36 lines
  1. in.file$=command$
  2. if in.file$<"!" then
  3.   line input "Enter input filename:";in.file$
  4.   if len(in.file$)>12 then print "Illegal filename.":stop
  5. end if
  6. a%=instr(in.file$,".")
  7. if a%>0 then
  8.  out.file$=left$(in.file$,a%)+"bas"
  9. else
  10.  out.file$=in.file$+".bas"
  11. end if
  12. print in.file$"-->"out.file$" Ending at POP BP instruction."
  13. open in.file$ for input as 1
  14. open out.file$ for output as 2
  15. print #2,"SUB "left$(out.file$,instr(out.file$,".")-1)" INLINE"
  16. while not eof(1)
  17.   line input #1,a$
  18.   a%=instr(a$,":") 'find address marker so we know where we are.
  19.   if a%>0 then
  20.   print #2,"  $INLINE ";
  21.     l%=a%+6        'Length outputed on line so far.
  22.     while mid$(a$,l%,2)>"!" 'while there are bytes to output
  23.       if l%>a%+6 then print #2,","; 'we need comma's between hex codes.
  24.       print #2,"&H"mid$(a$,l%,2);:l%=l%+2
  25.     wend
  26.     'Now show instruction as a comment just for readablity.
  27.   print #2,tab(31)"'";mid$(a$,a%+2,3)" "mid$(a$,a%+20)
  28.   end if
  29.   a%=instr(a$,"POP"):if a%>0 then if instr(a%,a$,"BP")>0 then goto done
  30. wend
  31. done:
  32. print #2,"END SUB"
  33. close 1,2
  34.  
  35.  
  36.